www.gusucode.com > 威博多用户网上购物商城(生成html) 6 > 威博多用户网上购物商城(生成html) 6.2/威博多用户/checklogin.asp

    <%@ LANGUAGE = "VBScript.Encode" codepage="65001" %>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
response.charset="UTF-8"
conndb
PageId=request("PageId")
FlagId=request("rg")
username=trim(request("username"))
userpassword=md5(trim(request("userpassword")))

'记录最后一次登陆IP地址
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
	userip = Request.ServerVariables("REMOTE_ADDR")
end if

if Flagid=1 then
		set rs=server.createobject("adodb.recordset")
		fldname="*"
		sql="select "&fldname&" from Web_User where U_UserName = '"&username&"'"
		rs.open sql,conn,2,2
		if rs.bof or rs.eof then
			Response.Write "<script language='javascript'>alert('用户名不存在');history.go(-1);</script>"
			response.end
		elseif rs("U_UserPassword")<>userpassword then
			Response.Write "<script language='javascript'>alert('用户名不存或者密码有误!');history.go(-1);</script>"
			response.end
		else
			rs("U_UserLogins")=rs("U_UserLogins")+1
			rs("U_LastLogin")=now()
			rs("U_UserLastIP")=userip
			rs.update
			response.cookies("kksid")=rs("userid")
			response.cookies("kkuid")=rs("U_UserName")
			if  isnull(trim(rs("u_viewroles")))=true then
				response.cookies("kkviewroles")=0
			else
				response.cookies("kkviewroles")=rs("u_viewroles")
			end if
			rs.close : set rs=nothing
			closedb
			select case pageid
			case "":
				response.redirect "member/index.asp"
			case "BuyGoOn":
				response.redirect "cart/cartstep1.asp"
			case "collpro":
				response.redirect "member/webdatasave.asp?action="&pageid&"&pid="&request("pid")&"&pageid="&server.urlencode(request("pageid2"))
			case "collshop":
				response.redirect "webdata.asp?action=collshop&id="&request("sid")&"&pageid="&server.urlencode(request("pageurl"))
			case "ajax":
				response.write "1"
			end select
	  	end if 
else
	passcode=Cint(request.form("passcode"))
	if passcode<>cint(Session("CheckCode")) then
		response.Write "<script LANGUAGE='javascript'>alert('登录失败！验证码错误！');history.go(-1);</script>"
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	fldname="*"
	sql="select "&fldname&" from Web_SHOP where S_ShopName= '"&username&"'"
	rs.open sql,conn,1,3
	if rs.bof or rs.eof then
		Response.Write "<script language='javascript'>alert('店铺登录用户名不存在');history.go(-1);</script>"
		response.end
	elseif trim(rs("S_Shoppassword"))<>userpassword then
		Response.Write "<script language='javascript'>alert('店铺登录用户名不存或者密码有误!');history.go(-1);</script>"
		response.end
	elseif rs("s_stop")=2 then
		Response.Write "<script language='javascript'>alert('您的网站已经被封停!请联系管理员');history.go(-1);</script>"
		response.end
	else
		rs("S_LastTime")=rs("S_LastTime")+1
		rs("S_LastTime")=now()
		rs.update
		response.cookies("kkshopid")=""
		response.cookies("ShopName")=rs("S_ShopName")
		response.cookies("kkshopid")=rs("S_Shopid")
		rs.close : set rs=nothing
		closedb
		response.Write "<script language=javascript>top.location.href='storeadmin/main.asp';</script>"
	end if
end if
%>